home *** CD-ROM | disk | FTP | other *** search
/ An Introduction to Progr…l Basic 6.0 (4th Edition) / An Introduction to Programming using Visual Basic 6.0.iso / PROGRAMS / CH11 / 11-2-5.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-09-20  |  2.2 KB  |  77 lines
  1. VERSION 5.00
  2. Begin VB.Form frmFace 
  3.    Caption         =   "Smiling Face"
  4.    ClientHeight    =   3612
  5.    ClientLeft      =   1092
  6.    ClientTop       =   1488
  7.    ClientWidth     =   3840
  8.    BeginProperty Font 
  9.       Name            =   "MS Sans Serif"
  10.       Size            =   7.8
  11.       Charset         =   0
  12.       Weight          =   700
  13.       Underline       =   0   'False
  14.       Italic          =   0   'False
  15.       Strikethrough   =   0   'False
  16.    EndProperty
  17.    LinkTopic       =   "Form1"
  18.    PaletteMode     =   1  'UseZOrder
  19.    ScaleHeight     =   3612
  20.    ScaleWidth      =   3840
  21.    Begin VB.VScrollBar vsbYPos 
  22.       Height          =   3015
  23.       LargeChange     =   500
  24.       Left            =   3480
  25.       Max             =   3000
  26.       Min             =   500
  27.       SmallChange     =   100
  28.       TabIndex        =   1
  29.       Top             =   480
  30.       Value           =   500
  31.       Width           =   255
  32.    End
  33.    Begin VB.HScrollBar hsbXPos 
  34.       Height          =   255
  35.       LargeChange     =   500
  36.       Left            =   0
  37.       Max             =   3000
  38.       SmallChange     =   100
  39.       TabIndex        =   0
  40.       Top             =   120
  41.       Width           =   3255
  42.    End
  43.    Begin VB.Label lblFace 
  44.       Caption         =   "J"
  45.       BeginProperty Font 
  46.          Name            =   "Wingdings"
  47.          Size            =   24
  48.          Charset         =   2
  49.          Weight          =   700
  50.          Underline       =   0   'False
  51.          Italic          =   0   'False
  52.          Strikethrough   =   0   'False
  53.       EndProperty
  54.       Height          =   492
  55.       Left            =   0
  56.       TabIndex        =   2
  57.       Top             =   504
  58.       Width           =   492
  59.    End
  60. Attribute VB_Name = "frmFace"
  61. Attribute VB_GlobalNameSpace = False
  62. Attribute VB_Creatable = False
  63. Attribute VB_PredeclaredId = True
  64. Attribute VB_Exposed = False
  65. Private Sub hsbXPos_Change()
  66.   lblFace.Left = hsbXPos.Value
  67. End Sub
  68. Private Sub hsbXPos_Scroll()
  69.   lblFace.Left = hsbXPos.Value
  70. End Sub
  71. Private Sub vsbYPos_Change()
  72.   lblFace.Top = vsbYPos.Value
  73. End Sub
  74. Private Sub vsbYPos_Scroll()
  75.   lblFace.Top = vsbYPos.Value
  76. End Sub
  77.